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SQL> cl scr 
SQL> DECLARE 

2 V_Deptno Dept . Deptno%TYPE := &G 

3 V_Dname Dept . Dname%TYPE := UPPE 

4 V_Loc Dept .Loc%TYPE := UPPER (' & 

5 BEGIN 

6 INSERT INTO Dept 

7 VALUES (V_Deptno, V_Dname, V_Loc 



9 WHEN DUP_VAL_ON_INDEX THEN 
10 DBMS_OUTPUT . PUT_LINE ( ' Sorry Dep 
Duplicated ' ) ; 
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SQL> ED 

Wrote file afiedt.buf 



PL/SQL procedure successfully comple 



11 END; 

12 / 

Enter value for gdeptno: 40 
Enter value for gdname : SHIPPING 
Enter value for gloc: CHENNAI 
Sorry Department Number Cannot be Dr 



8 EXCEPTION 






Number Cannot be 



SQL> ED 
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Wrote file afiedt.buf 



1 DECLARE 

2 V_Deptno Dept . Deptno%TYPE := SGDeptno; 

3 V_Dname Dept . Dname%TYPE := UPPER ( ' SGDname ' ) ; 

4 V_Loc Dept . Loc%TYPE := UPPER (' SGLoc ') ; 

5 — E_DataExists EXCEPTION; 

6 — PRAGMA EXCEPTION_INIT (E_DataExists, -1); 

7 BEGIN 

8 SELECT 

9 Deptno, Dname, Loc INTO V_Deptno, V_Dname, 
FROM Dept 

WHERE Deptno = V_Deptno; 

EXCEPTION 

WHEN NO_DATA_FOUND THEN 
DBMS_OUTPUT . PUT_LINE ( ' Sorry Data 
END; 

/ 



V Loc 



10 
11 
12 

13 

14 
15* 

SQL> 

Enter value for gdeptno: 
Enter value for gdname : 

Enter value for gloc: 
V_Deptno Dept . Deptno%TYPE := 




Found 



symbol ; % when 



expecting one of the 



ime ntif ier> 

&fier> <a bind variable> 



ERROR at line 2: 

ORA-06550: line 2, column 30 
PLS-00103: Encountered the 
following : 

( - + case mod new not null 

<a double- quoted del imit£a^tda^th_ tier > <a bind variable> avg 
count current exists max Jmiiriprior sql stddev sum variance 
execute f orall merge t^tmjk iti^Eie stamp interval date 
<a string literal rfath jhfe acter set specif i cat ion> 

<a number> <a singlwHjubted SQL string> pipe 

<an alternatively- quoted string literal with character set specif i cat ion> 
<an alternatively quo ted S 



c; 



SQL> ED 
Wrotevf afiedt.buf 

,vO 

i CdecSare 



O 






■f&ti- Vrpeptno Dept . Deptno%TYPE := SGDeptno ; 
fj^_Dname Dept . Dname%TYPE; 



V_Loc Dept . Loc%TYPE; 

— E_DataExists EXCEPTION; 

— PRAGMA EXCEPTION_INIT (E_DataExists, -1) 

BEGIN 

SELECT 
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9 Deptno, Dname, Loc INTO V_Deptno, V_Dname, V_Loc 

10 FROM Dept 

11 WHERE Deptno = V_Deptno; 

12 EXCEPTION 

13 WHEN NO_DATA_FOUND THEN 

14 DBMS_OUTPUT . PUT_LINE ( ' Sorry Data Not Found'); 

15* END; 

SQL> / 

Enter value for gdeptno: 30 
PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Deptno Dept . Deptno%TYPE := &GDeptno; 

3 V_Dname Dept . Dname%TYPE; 

4 V_Loc Dept . Loc%TYPE; 

5 — E_DataExists EXCEPTION; 

6 — PRAGMA EXCEPTION_INIT (E_DataExist 

7 BEGIN 

8 SELECT 

9 Deptno, Dname , Loc INTO V_Deptno , TOname, V_Loc 

10 FROM Dept 1^+r 

11 WHERE Deptno = V_Deptno; % 

12 DBMS_OUTPUT . PUT_LINE ( ' Tttp t Wfca is : ' | | V_Deptno || ' , 

' I I V_Loc) ; 

13 EXCEPTION , + 

14 WHEN NO_DATA_FOUND iCe^. 

15 DBMS_OUTPUT . PUT L#^%i + #?>rry Data Not Found' ) ; 




+ +kV 



tv 



Q 



,£ f Of* 

Enter value for adept-oB: 40 

The Data is : 40 \ OPERATIONS, BOSTON 

PL/ SQL procMrl successfully completed. 

SQL> -/ + ^ 

Enter M ^iaS*«^ for gdeptno: 60 
Sorrl DaSa Not Found 

TL/S® procedure successfully completed. 
%gL> ed 

rote file afiedt.buf 



' | | V_Dname | ] ' , 



1 DECLARE 
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2 V_Deptno Dept . Deptno%TYPE := SGDeptno; 

3 V_Dname Dept . Dname%TYPE; 

4 V_Loc Dept . Loc%TYPE; 

5 E_DataNotExists EXCEPTION; 

6 PRAGMA EXCEPTION_INIT (E_DataNotExists, -1403); 

7 BEGIN 

8 SELECT 

9 Deptno, Dname, Loc INTO V_Deptno, V_Dname, V_Loc 

10 FROM Dept 

11 WHERE Deptno = V_Deptno; 

12 DBMS_OUTPUT . PUT_LINE ( ' The Data is : ' | | V_Deptno | | 

' I I V_Loc ) ; 

13 EXCEPTION 

14 WHEN E_DataNotExists THEN 

15 DBMS_OUTPUT . PUT_LINE ( ' Sorry Data Not Found ' ) 4 
16* END; 

SQL> / 

Enter value for gdeptno: 40 
E_DataNotExists EXCEPTION; 



ERROR at line 5: 

ORA-06550: line 5, column 1: 
PLS-00701: illegal ORACLE error numb -1 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 




for PRAGMA EXCEPTION INIT 



d 



V_Deptno Dept . DeptndPfcTY^C := &GDeptno; 

3 V_Dname Dept . Dnam^^-Y^Bv 

4 V_Loc Dept . Lod^TYP^.^ 

5 E_DataNotExisttW+ffl|pEPTION; 

6 PRAGMA EXCEPTIONrfi^JIT (E_DataNotExists , +100) ; 

7 BEGIN \ 

8 SELEC ’O+V . ... 

9 Deptno^tpname 7 Loc INTO V_Deptno , V_Dname, V_Loc 

10 FROM DepfeF 

1 1 Deptno = V_Deptno; 

12 ^S^^» 6 tPUT . PUT_LINE ( ' The Data is : ' | | V_Deptno | | 

' I I VjLocV; 

T-3t^^»€EPTION 

E_DataNotExists THEN 

DBMS_OUTPUT . PUT_LINE ( ' Sorry Data Not Found'); 

% r 6 * END; 

QL> / 

Enter value for gdeptno: 40 

The Data is : 40, OPERATIONS, BOSTON 



| | V_Dname | I ' , 
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PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gdeptno: 60 
Sorry Data Not Found 

PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 
SQL> DECLARE 

2 V_ErrorCode NUMBER ( 6 ) ; 

3 V_ErrorMessage VARCHAR2 (200) ; 

4 BEGIN 

5 INSERT INTO Dept 

6 VALUES ( &DeptNumber, '&DeptName' 

7 EXCEPTION 

8 WHEN OTHERS THEN 

9 V_ErrorCode := SQLCODE ; 

10 V_ErrorMessage := SUBST^i»J«R^M, 1, 200); 

11 DBMS OUTPUT .PUT LINE!' Qj^ EB/r Code Traced is : ' | | V_ErrorCode) ; 

12 DBMS_OUTPUT . PUT_LINE?Vthe^:ror Message Traced is : 

' I I V_ErrorMessage) ; 

13 END; 

14 / 

Enter value for dej^fTIiffcer : 50 
Enter value for deptn^fe: SHIPPING 
Enter value fot. afeptlocation : CHENNAI 




^Location ' ) ; 






+ 4 J* 



SQL> -/ + 
Enters 



£ 






PL/SQL prot^^^^ successfully completed. 



for deptnumber: 40 



Entet value for deptname : CARGO 



Q 



Erf^jp+walue for deptlocation : DELHI 
Jphfjtror Code Traced is : -1 

\he"Error Message Traced is : ORA-00001 : unique constraint 
\(?COTT . DEPT_PRIMARY_KEY) violated 



PL/SQL procedure successfully completed. 
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SQL> ED 

Wrote file afiedt.buf 



10 

11 

12 

13 

14 

15 

16 
17 



DECLARE 

V_Deptno Dept . Deptno%TYPE := SDeptNumber; 

V_Dname Dept . Dname%TYPE := '&DeptName'; 

V_Loc Dept . Loc%TYPE := ' &DeptLocation ' ; 
V_ErrorCode NUMBER ( 6 ) ; 

V_ErrorMessage VARCHAR2 (200) ; 

BEGIN 

INSERT INTO Dept 

VALUES (V_Deptno, V_Dname, V_Loc) ; 

EXCEPTION 

WHEN DUP_VAL_ON_INDEX THEN 

DBMS_OUTPUT.PUT_LINE ( 'Sorry! The Department 
WHEN OTHERS THEN 
V_ErrorCode := SQLCODE ; 

V_ErrorMessage := SUBSTR (SQLERRM, 1, 200);.'% h 




DBMS_OUTPUT . PUT_LINE ( 1 The Error 
DBMS_OUTPUT . PUT_LINE ( 1 The Error 
| | V_ErrorMessage) ; 

18* END; 



Code 



SQL> / 

Enter value 
Enter value 
Enter value 
Sorry! The 



Mess a^p + -ff A^e d 



| | V_ErrorCode) 



is 



for deptnumber: 40 
for deptname : SHIPPT^(| 4_ fr 
for deptlocation : CHEMMA^ 




Department Exists*. : 

MX) 



iv J 44 ^ ■*+, 

PL/SQL procedure successf^ilj^y 

+ + " t 



? 

clnpleted. 



SQL> / 

Enter value 
Enter value 
Enter value 




NULL 
CARGO 
ation: DELHI 



The Error 
The Error 
( "SCOTT" . 



Code ced is : -1400 

s. ^g PrHTra ced is : ORA-01400: 
l"DHPTNO" ) 

PL/S^j jMcedure successfully completed. 

% yf 

SQL>lED > 

W^%e*+frfle af iedt . buf 



cannot insert NULL into 



o 









DECLARE 

V_Deptno Dept . Deptno%TYPE := &DeptNumber; 
V_Dname Dept . Dname%TYPE := '&DeptName'; 
V_Loc Dept . Loc%TYPE := ' &DeptLocation ' ; 
V_ErrorCode NUMBER ( 6 ) ; 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
IIV 



-1400) 



V_ErrorMessage VARCHAR2 (200) ; 

E_Nul IF ound EXCEPTION; 

PRAGMA EXCEPT I ON_INI T (E_NullFound 
BEGIN 

INSERT INTO Dept 

VALUES (V_Deptno, V_Dname, V_Loc) ; 

EXCEPTION 

WHEN DUP_VAL_ON_INDEX THEN 

DBMS_OUTPUT.PUT_LINE ( 'Sorry! The Department 
WHEN E_NullF ound THEN 

DBMS_OUTPUT.PUT_LINE ( 'Department Number Cannot 
WHEN OTHERS THEN 
V_ErrorCode := SQLCODE ; 

V_ErrorMessage := SUBSTR (SQLERRM, 1, 200); 
DBMS_OUTPUT . PUT_LINE ( ' The Error Code Traced is 
DBMS_OUTPUT . PUT_LINE ( ' The Error Message Trace 
_ErrorMessage) ; 



Exists 



22* END; 

SQL> / 

Enter value for deptnumber: NULL 
Enter value for deptname : CARGO 
Enter value for deptlocation : DELHI 
Department Number Cannot Be NULL 




rrorCode) 



X^ +j 

SEmpNumber; 



PL/SQL procedure successfully cdtarf^.ed. 
DECLARE 

V_Empno Emp . Empno%T?^E ^ 

V_EName Emp . EName-fft 
V_Job Emp . Job 
V_Sal Emp. Sal 
V_ErrorCode*NUMBg* (6) ; 
V_ErrorMe^*e VARCHAR2 (200) 

BEGIN 

SELEcrNfc^,Vrob, 

INTO 

« V_Job, V_Sal 

iWHIJ%E Empno = V_Empno; 



SQL> cl scr 



SQL> 

2 

3 

4 

5 

6 
7 



10 

11 

12 

13 



cypeO^ 



Sal 



O 



BfiMS_OUTPUT . PUT_LINE ( V_Ename | | ' 

tn ? ^ Exception 

WHEN OTHERS THEN 
\ T7 V_ErrorCode := SQLCODE; 

18 V_ErrorMessage := SUBSTR (SQLERRM, 1, 

19 DBMS_OUTPUT . PUT_LINE ( ' The Error Code 



I I V_Job | | 



I I V_Sal ) 



200 ) ; 

Traced 



is 



| | V_ErrorCode) 
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20 DBMS_OUTPUT . PUT_LINE ( ' The Error Message Traced is 
' I I V_ErrorMessage) ; 

21 END; 

22 / 

Enter value for empnumber: 7654 
MARTIN SALESMAN 1250 

PL/SQL procedure successfully completed. 

SQL> ROLLBACK; 

Rollback complete. 










I I V_Sal ) ; 



SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := SEmpNumber; 

3 V_EName Emp . EName%TYPE ; 

4 V_Job Emp . Job%TYPE ; 

5 V_Sal Emp . Sal%TYPE; 

6 V_ErrorCode NUMBER ( 6 ) ; 

7 V_ErrorMessage VARCHAR2 (200) ; 

8 BEGIN 

9 SELECT Ename, Job, Sal 

10 INTO 

11 V_EName, V_Job, V_Sal 

12 FROM Emp + + ;f J +k 

13 WHERE Empno = V_Empno; 

14 DBMS_OUTPUT . PUT_LINE '* ' | | V_Job | | 

15 EXCEPTION 

16 WHEN OTHERS THEN T 

17 V_ErrorCode := SQLCGffc ; t, 

V_ErrorMessage : ( SQLERRM, 1, 200); 

DBMS_OUTPUT . P^flLINE ( 1 The Error Code Traced is : ' | | V_ErrorCode) ; 

DBMS_OUTPUT . POTt+C^IE ( ' The Error Message Traced is : 

' | | V_ErrorMessage) ; ++ |J 

2 1 END ; ... \ 

22 ' 

Enter value fo rfempnumber : 2234 
The Error Coda^raced is : 100 

The Ecrct^Iessage Traced is : ORA-014 03 : no data found 
PL/SBL Rlocedure successfully completed. 

Q 3> f feD 

o^ file af iedt . buf 



18 

19 

20 




1 DECLARE 

2 V_Empno Emp . Empno%TYPE := &EmpNumber; 

3 V_EName Emp . EName%TYPE ; 
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4 V_Job Emp . Job%TYPE ; 

5 V_Sal Emp . Sal%TYPE; 

6 V_ErrorCode NUMBER ( 6 ) ; 

7 V_ErrorMessage VARCHAR2 (200) ; 

8 BEGIN 

9 SELECT Ename, Job, Sal 

10 INTO 

11 V_EName, V_Job, V_Sal 

12 FROM Emp 

13 WHERE Empno = V_Empno; 

14 DBMS_OUTPUT.PUT_LINE (V_Ename | | ' ' | | V_Job | | ' 

15 EXCEPTION 

16 WHEN OTHERS THEN 

17 DBMS_OUTPUT . PUT_LINE ( ' The Error Traced'); 

18* END; 

SQL> / 

Enter value for empnumber: 2234 
The Error Traced 



0 









C"J 



[ 




PL/SQL procedure successfully completed 
SQL> cl scr 



SQL> CREATE TABLE MyAudit 
2 ( 

3 UserName VARCHAR2 (15) 

4 ModDate DATE, 

5 Message VARCHAR2 (10^) 

6 ) 

7 / 




# 




Table created. 






■,# 



SQL> COL UserName FOR^KT A10 
SQL> COL MessagjeVoRMAT A80 
SQL> CREATE ^x lLBI^ HTrappedMes sages 

2 ( Y) \ 

3 Er^rNulwUMBER ( 6) , 
rMsg VARCHAR2 (250) , 
mte DATE 




ble created . 

3QL> COL ErrorMsg FORMAT A80 
SQL> BEGIN 

2 INSERT INTO Dept 
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3 VALUES (&DeptNumber, '&DeptName', ' SDeptLocation ' ) ; 

4 INSERT INTO MyAudit ( UserName , ModDate) 

5 VALUES (USER, SYSDATE ) ; U*, 

6 EXCEPTION ,, 

7 WHEN OTHERS THEN \ 

8 DECLARE 

9 V_ErrorCode NUMBER (6) ; jt 

10 V_ErrorMessage VARCHAR2 (200) ; 

11 BEGIN \ 

12 V_ErrorCode := SQLCODE ; ^ ^ 

13 V_ErrorMessage := SUBSTR ( SQLERRM, 1, 200); 4 V^ ++ * 4 

14 DBMS_OUTPUT . PUT_LINE ( 1 The Error Code Traced is : '4 |¥a^f|otCode) ; 

15 DBMS_OUTPUT . PUT_LINE ( ' The Error Message Traced is I* 

' | | V_ErrorMessage) ; ♦ 

1 6 INSERT INTO TrappedMessages (ErrorNum, ErrorP^gj ^rapDate) 

17 VALUES (V_ErrorCode, V_ErrorMessage, SYSDATE) + -> 

18 END; 

19 END ; , % % 

20 / ++ vV + 

Enter value for deptnumber: 5 0 + +, + +. 4- r t' 

Enter value for deptname : SHIPPING jJ4^ + 4- + + -» 

Enter value for deptlocation : CHENNAI 1, Lr ,, 

PL/SQL procedure successfully completed/-*:- 

SQL> SELECT * FROM MyAudit; 

USERNAME MODDATE + J , +T 

MESSAGE Tt t f 



SCOTT 21-NOV-f*+ rH | 

SQL> BEGIN T tF J 4 

2 INSERT IWTO Dept 

3 ^AIEJpS _^&DeptNumber , ' SDeptName ' , ' &DeptLocation ' ) 

4 IlteBSirjf" INTO MyAudit (UserName, ModDate) 

5 IVALtes (USER, SYSDATE); 

■j^^BJSCEPTION 

if f> HEN OTHERS THEN 
bru 8^ DECLARE 

V_ErrorCode NUMBER ( 6) ; 

1 10 V_ErrorMessage VARCHAR2 (200) ; 

11 BEGIN 

12 V_ErrorCode := SQLCODE; 
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13 V_ErrorMessage := SUBSTR ( SQLERRM, 1, 200); 

14 DBMS_OUTPUT . PUT_LINE ( ' The Error Code Traced is : ' ! | V_ErrorCode ) ; 

15 DBMS_OUTPUT . PUT_LINE ( ' The Error Message Traced is : U*, 

' I I V_ErrorMessage) ; ^ 

16 INSERT INTO TrappedMessages (ErrorNum, ErrorMsg, TrapDate) -) | 'i 

17 VALUES (V_ErrorCode , V_ErrorMessage, SYSDATE) ; 

18 END; 

1 9 END ; X- 

20 ' . 

Enter value for deptnumber: 4 0 + 4 . t "vi 

Enter value for deptname : COURIER t* 4 "" hd 1 1 1 ' 4 

Enter value for deptlocation : DELHI 4 ■! rtf' = V 1 

The Error Code Traced is : -1 \ , fr 

The Error Message Traced is : ORA-OOOOl: unique cons^rainCR 

(SCOTT .DEPT_PRIMARY_KEY) violated ^ |\ + 

PL/SQL procedure successfully completed. x'+r 

SQL> SELECT * FROM TrappedMessages; +, T !?*+."*+ 

W 

E RRO RNUM + + 4 

ERRORMSG ^ 

TRAPDATE d-*' da ^ 

=1 + > 6 ? 

ORA-OOOOl : unique constrai1l| f^cbTT . DEPT_PRIMARY_KEY) violated 
21 -NOV- 14 ^ t t + 

c3> 

SQL> ED 1 Trh r ^J 

Wrote file afied^buf^r 

1 DECLA RE 

2 V_Deptm^D^pt\Deptno%TYPE := SDeptNumber; 

3 V D gam e CT^ot . Dname%TYPE := ' &DeptName ' ; 

4 U Ifcy Dept . Loc%TYPE := ' SDeptLocation ' ; 

5 

6 ilNB^RT INTO Dept 

vilEUE S (V_Deptno, V_Dname, V_Loc) ; 
jf O^NSERT INTO MyAudit (UserName, ModDate) 

4. V* 4 VALUES (USER, SYSDATE) ; 

TO EXCEPTION 

11 WHEN DUP_VAL_ON_ INDEX THEN 

12 DBMS_OUTPUT.PUT_LINE ( 'Department Number is Existing'); 

13 WHEN OTHERS THEN 
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14 DECLARE 

15 V_ErrorCode NUMBER ( 6) ; 

16 V_ErrorMessage VARCHAR2 (200) ; 

17 BEGIN 

18 V_ErrorCode := SQLCODE ; 

19 V_ErrorMessage := SUBSTR ( SQLERRM, 1, 200); 

20 DBMS_OUTPUT . PUT_LINE ( ' The Error Code Traced is 

21 DBMS_OUTPUT . PUT_LINE ( ' The Error Message Traced 
' I I V_ErrorMessage) ; 

22 INSERT INTO TrappedMessages (ErrorNum, ErrorMsg 

23 VALUES (V_ErrorCode, V_ErrorMessage, SYSDATE) ; 

24 END; 

25* END; 

SQL> / 




Enter value for deptnumber: 40 
Enter value for deptname : CARGO 
Enter value for deptlocation : DELHI 
Department Number is Existing 

PL/SQL procedure successfully completed 







■r 




SQL> / 

Enter value for deptnumber: NULL 
Enter value for deptname: CAOURIER 
Enter value for deptlocation: DESy^V^ 

The Error Code Traced is : -14 0p_>' l % **■> 

The Error Message Traced is f r dtps=tdr4 00 : cannot insert NULL into 
("SCOTT" . "DEPT" . "DEPTNO") + , + + + _ J 5 






PL/SQL procedure success#£ll^. completed. 



SQL> SELECT * FROM 
ERRORNUM 
ERRORMSG 



Messages; 




Jl: unique constraint (SCOTT . DEPT_PRIMARY_KEY) violated 
r-14 

-1400 

IRA- 01400: cannot insert NULL into (" SCOTT "DEPT "DEPTNO" ) 

21 -NOV- 14 
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ERRORNUM 




SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



